home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / pcl_src.zoo / gold-low.lsp < prev    next >
Lisp/Scheme  |  1992-07-09  |  2KB  |  52 lines
  1. ;;;-*-Mode:LISP; Package:(PCL Lisp 1000); Base:10; Syntax:Common-lisp -*-
  2. ;;;
  3. ;;; *************************************************************************
  4. ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
  5. ;;; All rights reserved.
  6. ;;;
  7. ;;; Use and copying of this software and preparation of derivative works
  8. ;;; based upon this software are permitted.  Any distribution of this
  9. ;;; software or derivative works must comply with all applicable United
  10. ;;; States export control laws.
  11. ;;; 
  12. ;;; This software is made available AS IS, and Xerox Corporation makes no
  13. ;;; warranty about the software, its performance or its conformity to any
  14. ;;; specification.
  15. ;;; 
  16. ;;; Any person obtaining a copy of this software is requested to send their
  17. ;;; name and post office or electronic mail address to:
  18. ;;;   CommonLoops Coordinator
  19. ;;;   Xerox PARC
  20. ;;;   3333 Coyote Hill Rd.
  21. ;;;   Palo Alto, CA 94304
  22. ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
  23. ;;;
  24. ;;; Suggestions, comments and requests for improvements are also welcome.
  25. ;;; *************************************************************************
  26. ;;;
  27. ;;;
  28. ;;; 
  29.  
  30. (in-package 'pcl)
  31.  
  32. ;;; fix a bug in gcl macro-expander (or->cond->or->cond->...)
  33. (setf (get 'cond 'lisp::macro-expander) nil)
  34.  
  35. ;;; fix another bug in gcl3_0 case macro-expander
  36. (defun lisp::eqv (a b) (eql a b))
  37.  
  38. (defun printing-random-thing-internal (thing stream)
  39.   (multiple-value-bind (offaddr baseaddr)
  40.       (sys:%pointer thing)
  41.     (princ baseaddr stream)
  42.     (princ ", " stream)
  43.     (princ offaddr stream)))
  44.  
  45. ;;;
  46. ;;; This allows the compiler to compile a file with many "DEFMETHODS"
  47. ;;; in succession.
  48. ;;;
  49. (dolist (x '(defmethod defgeneric defclass precompile-random-code-segments))
  50.   (setf (get x 'gcl::compile-separately) t))
  51.  
  52.